# name : survfit curve
# key: survfit
# contributor: Shuguang Sun
# --
fit <- survfit(${1:Surv(AVAL, EVENT) ~ TRT01P + strata(HISTCAT)},
data = ${2:data},
${3:$$(yas-choose-value '("stype=1, ctype=1, # kaplan-meier"
"stype=2, ctype=1, # fleming-harrington, Nelson-Aalen-Breslow = -log($surv)"
"stype=2, ctype=2, # fh2"))},
conf.type = \"${4:$$(yas-choose-value '("log" "log-log" "plain" "logit" "arcsin" "none"))}\"
${5:, conf.lower = \"${6:$$(yas-choose-value '("usual" "peto" "modified"))}\"})
summary(fit)$table$0